#!/usr/bin/perl
use strict;
use plot;

my @aaa = ();
my @bbb = ();
my $label_cnt = 5;
my $title = "中文";
my $png_file = "./a.png";

foreach my $idx (1 .. 100) {
	push @aaa, "date-" . $idx . "\nIDX$idx";
	push @bbb, sin(2*3.14/200 * $idx);
}

plot(\@bbb, \@aaa, $title, "./a.png", 5);
